home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / VGIPH.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.0 KB  |  139 lines
  1. 10 GOTO2015
  2. 15 POKE55,.:POKE56,63:CLR:Q$=CHR$(34)
  3. 20 PRINT"[147]    ";Q$;"[199]IF [214]IEWER 2.1";Q$;", BY [196]AVID [202]ANSEN,"
  4. 25 PRINT"IS A POPULAR AND WELL WRITTEN [195]-64 [199][201][198]"
  5. 30 PRINT"DECODER.  [213]NFORTUNATELY, IT REJECTS [199][201][198]"
  6. 35 PRINT"DATA FILES THAT USE THE 89A VERSION."
  7. 40 PRINT"[193]T THE PRESENT TIME THERE ARE TWO [199][201][198]"
  8. 45 PRINT"VERSIONS, THE ORIGINAL 87A AND THE 89A."
  9. 50 PRINT"[193]BOUT THE ONLY DIFFERENCE BETWEEN THE"
  10. 55 PRINT"TWO IS THE DEFINING OF SEVERAL"
  11. 60 PRINT"EXTENSION BLOCKS IN THE NEWER VERSION."
  12. 65 PRINT"    [194]UT THE [199][201][198] STANDARD SUPPORTS"
  13. 70 PRINT"DOWNWARD COMPATIBILTY; OLDER VIEWERS"
  14. 72 GOSUB900
  15. 75 PRINT"SHOULD DISPLAY THE IMAGES, WHILE NOT"
  16. 80 PRINT"NECESSARILY RECOVERING ALL OF THE DATA"
  17. 85 PRINT"IN THE FILE."
  18. 90 PRINT"    [212]HIS PROGRAM WILL MODIFY THE VIEWER"
  19. 95 PRINT"SO THAT IT DECODES BOTH VERSIONS.  [201]T"
  20. 100 PRINT"SHOULD WORK WITH FUTURE VERSIONS ALSO."
  21. 105 PRINT"[212]HE [199][201][198] STANDARD ALLOWS A DATA FILE TO"
  22. 110 PRINT"DEFINE A ";Q$;"PIXEL ASPECT RATIO";Q$;".  [201]N"
  23. 115 PRINT"THAT CASE, THE ORIGINAL VIEWER WOULD"
  24. 120 PRINT"ABORT AND DISPLAY AN ERROR MESSAGE"
  25. 125 PRINT"(";Q$;"[206]O [218]ERO [194]YTE!";Q$;").  [215]ITH THIS PATCH,"
  26. 127 GOSUB900
  27. 130 PRINT"YOU WILL BE TAKEN TO A SCREEN THAT TELLS"
  28. 135 PRINT"YOU THE AMOUNT OF IMAGE COMPRESSION OR"
  29. 137 PRINT"EXPANSION THAT YOU WOULD SEE.  [193]ND YOU"
  30. 138 PRINT"MAY EITHER ABORT OR PROCEED.  [212]HIS"
  31. 140 PRINT"PROGRAM ALSO FIXES A BUG IN THE"
  32. 144 PRINT"EXTENSION BLOCK ROUTINE.  [201]N ADDITION,"
  33. 145 PRINTQ$;"COMMENT";Q$;" EXTENSION BLOCKS WILL NOW BE"
  34. 147 PRINT"PROCESSED.  [212]YPICALLY, THESE ARE PLAIN"
  35. 150 PRINT"TEXT DESCRIPTIONS OF THE IMAGES IN THE"
  36. 155 PRINT"FILE.  [201]F THERE IS NO PRINTER CONNECTED,"
  37. 160 PRINT"THE TEXT WILL BE SEEN ON THE SCREEN IN"
  38. 165 PRINT"A PAGED DISPLAY.  [201]F A POWERED-UP [195][194][205]"
  39. 167 GOSUB900
  40. 170 PRINT"1525 PRINTER (OR A 1525 EMULATION) IS"
  41. 175 PRINT"CONNECTED TO THE COMPUTER, THE TEXT WILL"
  42. 180 PRINT"BE SENT TO THE PRINTER.  [217]OU WILL SEE"
  43. 185 PRINT"THE TEXT ON THE SCREEN ALSO, BUT THE"
  44. 190 PRINT"SCREEN DISPLAY WILL SCROLL.  [212]HE PRINTER"
  45. 195 PRINT"SECONDARY ADDRESS IS 7 (CHARACTER SET"
  46. 200 PRINT"2).  [212]O CHANGE IT, [208][207][203][197] THE NEW [211][193] INTO"
  47. 205 PRINT"7405 OF THE NEW VIEWER.  [193]LSO, ANY"
  48. 210 PRINT"CONTROL CODES THAT YOU WANT TO SEND TO"
  49. 215 PRINT"THE PRINTER IN THE [207][208][197][206], MAY BE [208][207][203][197]D"
  50. 220 PRINT"INTO THE TEN ADDRESSES FROM 7406 TO"
  51. 225 PRINT"7415.  [212]HEN [211][193][214][197] THE PROGRAM BACK TO"
  52. 227 GOSUB900
  53. 230 PRINT"DISK.  [212]HE ONLY CONTROL CODE THAT [201] USE"
  54. 235 PRINT"IS ";Q$;"SKIP PAST PERFORATIONS";Q$;" (27, 65 ON"
  55. 240 PRINT"MY [207]KIMATE 20)."
  56. 245 PRINT"    [212]HE MODIFIED VIEWER WILL ALSO"
  57. 250 PRINT"HANDLE MULTI-IMAGE [199][201][198]S.  [201]F MORE THAN"
  58. 255 PRINT"ONE IMAGE IS IN THE FILE, THE PROGRAM"
  59. 260 PRINT"WILL WAIT FOR A KEYPRESS AFTER THE FIRST"
  60. 265 PRINT"IMAGE IS DISPLAYED.  [208]RESSING A KEY WILL"
  61. 270 PRINT"CLEAR THE SCREEN AND DISPLAY THE NEXT"
  62. 275 PRINT"PICTURE.  [193]ND SO ON.
  63. 300 [153]"    (null)OU MAY ALSO PRINT CERTAIN IMAGES."
  64. 305 [141]900
  65. 310 [153]"(null)HE CHR$RIGHT$ASC FILE MUST USE ONLY TWO COLORS,"
  66. 315 [153]"AND YOU MUST HAVE MULTI-COLOR (null)ASCASC (PEEK)"
  67. 320 [153]"WHEN YOU VIEW THE IMAGE.  RIGHT$F YOU"
  68. 325 [153]"DOWNLOAD A LENRIGHT$(null) WEATHER MAP (CHR$(null) (null)ATN(null)(null)) AND"
  69. 330 [153]"SELECT LEFT$ERCULES GRAPHICS FROM THE FIRST"
  70. 335 [153]"MENU, THE FILE REQUIREMENTS WILL BE MET."
  71. 340 [153]"ATNFTER YOU VIEW THE IMAGE (OR THE LAST"
  72. 345 [153]"IMAGE IN A MULTI-IMAGE CHR$RIGHT$ASC), A CHECK"
  73. 350 [153]"WILL BE MADE FOR ONLY TWO COLORS USED"
  74. 360 [153]"AND MULTI-COLOR (null)ASCASC.  RIGHT$F THAT BE THE"
  75. 370 [153]"CASE, YOU WILL BE GIVEN INSTRUCTIONS"
  76. 375 [153]"FOR PRINTING THE IMAGE (OR RETURNING TO"
  77. 377 [141]900
  78. 380 [153]"THE MAIN MENU).  (null)HE PRINTER"
  79. 385 [153]"REQUIREMENTS ARE THE SAME AS THE ONES"
  80. 390 [153]"FOR PRINTING COMMENT BLOCKS."
  81. 400 [153]"    (null)WO OTHER CHANGES MADE BY THIS"
  82. 405 [153]"PROGRAM SHOULD BE MENTIONED.  (null)HEN THE"
  83. 410 [153]"DISPLAY OF AN IMAGE IS COMPLETED, THE"
  84. 415 [153]"BORDER WILL FLASH BRIEFLY.  (null)HIS MAY BE"
  85. 420 [153]"USEFUL WHEN VIEWING CHR$RIGHT$ASCS THAT ARE"
  86. 425 [153]"LARGER THAN 320 (null) 200.  (null)HE OTHER CHANGE"
  87. 430 [153]"AFFECTS SAVING AN IMAGE AS A STR$OODLE! OR"
  88. 435 [153]"(null)OALA FILE.  RIGHT$F THE CHR$RIGHT$ASC ENDS WITH A"
  89. 437 [141]900
  90. 438 [153]"LOAD"
  91. 440 [153]"COMMENT BLOCK, PRESS THE STOPKEY AFTER"
  92. 445 [153]"AN IMAGE IS DISPLAYED.  (null)HAT WILL TAKE"
  93. 450 [153]"YOU TO THE MENU, WHERE YOU CAN PRESS LEFT$."
  94. 455 [153]"RIGHT$F THE CHR$RIGHT$ASC DOES (null)(null)(null) END WITH A COMMENT"
  95. 460 [153]"BLOCK, PRESS ANY KEY VAL(null)LENVAL(null)(null) THE STOPKEY"
  96. 465 [153]"TO SAVE THE IMAGE (OR TO SAVE THE LAST"
  97. 470 [153]"IMAGE IN A MULTI-IMAGE CHR$RIGHT$ASC).  (null)SE THE"
  98. 475 [153]"STOPKEY TO SAVE THE OTHER IMAGES IN A"
  99. 480 [153]"MULTI-IMAGE CHR$RIGHT$ASC."
  100. 500 [153]"    (null)ITH THE DISK CONTAINING THE VIEWER"
  101. 510 [153]"IN THE DRIVE (DEVICE # 8), ENTER THE"
  102. 512 [141]900
  103. 513 [153]"LOAD"
  104. 520 [153]"FILENAME OF THE CHR$RIGHT$ASC VIEWER AT THE"
  105. 530 [153]"PROMPT.  (null)HE VIEWER FILE WILL BE READ"
  106. 540 [153]"INTO MEMORY, MODIFIED, AND WRITTEN BACK"
  107. 550 [153]"TO DISK.  (null)HE FILENAME OF THE NEW FILE"
  108. 560 [153]"WILL BE THAT OF THE ORIGINAL, PRECEDED"
  109. 570 [153]"BY A PLUS SIGN (+)."
  110. 575 [141]900
  111. 580 [153]"LOAD"
  112. 585 [153]"VALNTER VIEWER FILENAME."
  113. 590 [153]"(null)RESS (null)VAL(null)(null)(null)(null) TO EXIT."
  114. 600 F$[178]"":[153]:[133]F$:[139]F$[178]""[167][153]"LOADRETURN":[137]680
  115. 610 [159]15,8,15
  116. 620 [159]8,8,8,F$:[141]800
  117. 630 [139]A[167][159]9,8,1,"+"[170]F$:[137]650
  118. 640 [160]8:[160]15:[153]"":[137]585
  119. 650 [141]800:[139]A[167][153]"(null)(null)VAL (null)(null)(null)VAL(null)(null) (null)(null)VALATN(null)VAL...":[158]23757:[137]670
  120. 660 [160]9:[137]640
  121. 670 [153]"LOADRETURN...DONE":[128]
  122. 680 [151]56,160:[128]
  123. 800 [132]15,A,B$,C,D
  124. 805 [139]A[179]20[167]A[178]1:[142]
  125. 810 [153]:[153]A:[153]:[153]B$:[153]:[153]C,D:A[178].:[142]
  126. 900 [153]"             [(null)(null)VAL(null)(null) (null)VAL(null)(null)(null)(null)]WAIT";
  127. 905 [161]A$:[139]A$[178][199](13)[167][153]"LOAD":[142]
  128. 910 [137]905
  129. 2015 [151]56,62:[156]:[153]"LOADRETURNONE MOMENT PLEASE..."
  130. 2020 P[178][194](45)[170]256[172][194](46)[171]1
  131. 2025 [139][194](P)[167]P[178]P[171]1:[137]2025
  132. 2030 S[178]40000:[129]I[178].[164]22:[135]Y:[151]S[170]I,Y:[130]
  133. 2035 [151]53,148:[151]54,93:[151]251,166:[151]252,244
  134. 2040 [151]254,P[173]256:[151]253,P[175]255:[158]S
  135. 2045 [151]2054,48:[137]15
  136. 2050 [131]160,0,177,253,145,53,152,208
  137. 2055 [131]4,198,54,198,254,136,230,251
  138. 2060 [131]208,240,230,252,208,236,96
  139.